



<table border="0" width="100%">

  <tr>

  <td width="100%" align="center">



<script language="SpeedScript">



  /* PREPROCESSOR Definitions */

  

  DEF INPUT PARAMETER buf-noerr   AS    INTEGER            NO-UNDO.
  DEF INPUT PARAMETER a-lang      AS    INTEGER            NO-UNDO.
  DEF INPUT PARAMETER p-page      AS    CHARACTER          NO-UNDO.
  DEF INPUT PARAMETER p-etat      AS    CHARACTER          NO-UNDO.

  

  DEF VAR lab-bouton AS   CHARACTER EXTENT 5               NO-UNDO.
  DEF VAR i          AS   INTEGER                          NO-UNDO.

  p-etat = p-etat + "OOOOOOOO".

  FIND erreur WHERE erreur.noerr = buf-noerr

                AND erreur.lang  = a-lang NO-LOCK NO-ERROR.

  DO i = 1 to NUM-ENTRIES(erreur.libel) - 1:

     IF ENTRY(i,erreur.libel) = "[page]" THEN DO:
        {&out} p-page.
        NEXT.
     END.

</script>

  <input type="submit" value="`ENTRY(i,erreur.libel)`" 

<script language="SpeedScript">
    IF SUBSTRING(p-etat,i,1) = "N" THEN {&out} " disabled=~"disabled~" style=~"display: none;~" ".
</script>

name="navigue" />

<script language="SpeedScript">

  

  END.



</script>



    </td>

  </tr>

</table>

